Gas Stations in the United States

url <- 'https://raw.githubusercontent.com/kyleknox3/STA553/main/Week7/POC.csv'
gas <- read.csv(url)

set.seed(123)
sample <- gas %>% sample_n(500)

g <- list(scope = 'usa',
          projection = list(type = 'albers usa'),
          showland = TRUE,
          landcolor = toRGB("gray95"),
          subunitcolor = toRGB("gray85"),
          countrycolor = toRGB("gray85"),
          countrywidth = 0.5,
          subunitwidth = 0.5)

fig <- plot_geo(sample, lat = ~ycoord, lon = ~xcoord) %>%
  add_markers(text = ~paste("Address:",ADDRESS, "<br>County:", county,
                            "<br>State:", STATE, "<br>Zip Code:", ZIPnew),
              hoverinfo= "text") %>%
  layout(title = 'Gas Stations Accross the United States', geo = g)

fig